'(THIS IS THE UNFASL FOR ((DSK (MAC LSP)) EMACLS /19)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON DECEMBER 12, 1983, AT 11:01 PM

CHNINT & INTPDL need to be defined!

	(COMMENT **FASL** 0. (LAP EM:MAIL-INTERFACE-INITIALIZE SUBR)) 
	(COMMENT **FASL** 18. (LAP EM:RESET&↑B-BREAK SUBR)) 
	(COMMENT **FASL** 21. (LAP EM:COPY-ALIAS SUBR)) 
	(COMMENT **FASL** 26. (LAP EM:INITIALIZE SUBR)) 
	(COMMENT **FASL** 47. (LAP EM:CONNECT SUBR)) 
	(COMMENT **FASL** 67. (LAP |UNASCII MACRO| SUBR)) 
	(COMMENT **FASL** 95. (LAP EM:NAECOMMANDS SUBR)) 
	(COMMENT **FASL** 99. (LAP EM:ECOMMANDS SUBR)) 
	(COMMENT **FASL** 218. (LAP EM:RAW-ECOMMANDS SUBR)) 
	(COMMENT **FASL** 283. (LAP EM:SET-SEND-LINES SUBR)) 
	(COMMENT **FASL** 289. (LAP EM:GET-SEND-LINES SUBR)) 
	(COMMENT **FASL** 295. (LAP EM:FORCE SUBR)) 
	(COMMENT **FASL** 301. (LAP EM:TERPRI SUBR)) 
	(COMMENT **FASL** 307. (LAP EM:REAL-TERPRI SUBR)) 
	(COMMENT **FASL** 320. (LAP EM:EVAL-MESSAGE SUBR)) 
	(COMMENT **FASL** 369. (LAP EM:EVAL-MESSAGE-WARN SUBR)) 
	(COMMENT **FASL** 420. (LAP |EM:READ-UNTIL-EOF MACRO| SUBR)) 
	(COMMENT **FASL** 477. (LAP |EM:TYI-UNTIL-EOF MACRO| SUBR)) 
	(COMMENT **FASL** 534. (LAP EM:TYI-MESSAGE SUBR)) 
	(COMMENT **FASL** 576. (LAP EM:TYI-LINE SUBR)) 
	(COMMENT **FASL** 620. (LAP EM:FREAD LSUBR)) 
	(COMMENT **FASL** 656. (LAP EM:CONTROL-DISPATCH SUBR)) 
	(COMMENT **FASL** 726. (LAP EM:READONLY-VARS SUBR)) 
	(COMMENT **FASL** 856. (LAP EM:ADD-CMFUN SUBR)) 
	(COMMENT **FASL** 861. (LAP EM:DELETE-CMFUN SUBR)) 
	(COMMENT **FASL** 891. (LAP EM:TTYINT SUBR)) 
	(COMMENT **FASL** 910. (LAP EM:TRANSCRIPT-READ LSUBR)) 
	(COMMENT **FASL** 921. (LAP EM:TRANSCRIPT-OFF SUBR)) 
	(COMMENT **FASL** 923. (LAP EM:TRANSCRIPT SUBR)) 
	(COMMENT **FASL** 941. (LAP EM:SWALLOW-ALT SUBR)) 
	(COMMENT **FASL** 953. (LAP EM:MODE SUBR)) 
	(COMMENT **FASL** 956. (LAP EM:LFILE-MODE SUBR)) 
	(COMMENT **FASL** 963. (LAP EM:LTYPE-MODE SUBR)) 
	(COMMENT **FASL** 970. (LAP EM:LATTACH-MODE SUBR)) 
	(COMMENT **FASL** 977. (LAP EM:LPEND-MODE SUBR)) 
	(COMMENT **FASL** 984. (LAP EM:READONLY-VAR SUBR)) 
	(COMMENT **FASL** 992. (LAP EM:RESET SUBR)) 
	(COMMENT **FASL** 1000. (LAP EM:FAIL-ACT SUBR)) 
	(COMMENT **FASL** 1018. (LAP EM:READ SUBR)) 
	(COMMENT **FASL** 1024. (LAP EM:SEND-CURRENT SUBR)) 
	(COMMENT **FASL** 1032. (LAP EM:ADD-QUEUE SUBR)) 
	(COMMENT **FASL** 1054. (LAP EM:GET-QUEUE SUBR)) 
	(COMMENT **FASL** 1064. (LAP EM:GET-LQUEUE SUBR)) 
	(COMMENT **FASL** 1074. (LAP EM:ADD-LQUEUE SUBR)) 
	(COMMENT **FASL** 1102. (LAP EM:REMOVE-TAIL SUBR)) 
	(COMMENT **FASL** 1124. (LAP EM:GET-READONLY-QUEUE SUBR)) 
	(COMMENT **FASL** 1160. (LAP EM:MAIL-INTERFACE SUBR)) 
	(COMMENT **FASL** 1199. (ENTRY EM:GET-JOBNUM SUBR)) 
	(COMMENT **FASL** 1208. (ENTRY EM:SET-JOBNUM SUBR)) 
	(COMMENT **FASL** 1232. (ENTRY EM:PROCESS-MAIL SUBR)) 
	(COMMENT **FASL** 1232. (ENTRY EM:MAIL-TYPE SUBR)) 
	(COMMENT **FASL** 1312. (ENTRY EM:WAIT-MAIL SUBR)) 
	(COMMENT **FASL** 1383. (ENTRY EM:MASK-OFF SUBR)) 
	(COMMENT **FASL** 1387. (ENTRY EM:TURN-MASK-OFF SUBR)) 
	(COMMENT **FASL** 1390. (ENTRY EM:MASK-ON SUBR)) 
	(COMMENT **FASL** 1411. (ENTRY EM:MAIL-SFA SUBR)) 
	(COMMENT **FASL** 1438. (ENTRY EM:MAIL-CHARPOS SUBR)) 
	(COMMENT **FASL** 1461. (ENTRY EM:INIT-SEND-LINES SUBR)) 
	(COMMENT **FASL** 1479. (ENTRY EM:MAIL-TYI SUBR)) 
	(COMMENT **FASL** 1530. (ENTRY EM:MESSAGEP SUBR)) 
	(COMMENT **FASL** 1537. (ENTRY EM:MAIL-TYO SUBR)) 
	(COMMENT **FASL** 1602. (ENTRY EM:MAIL-FORCE-OUTPUT SUBR)) 
	(COMMENT **FASL** 1660. (ENTRY EM:MESSAGE-ALIGN SUBR)) 
	(COMMENT **FASL** 1793. (ENTRY EM:CLEAR-INPUT SUBR)) 
	(COMMENT **FASL** 1882. (ENTRY EM:SEND-SIMPLE-MESSAGE SUBR)) 
	(COMMENT **FASL** 1926. (ENTRY EM:INIT SUBR)) 
	(COMMENT **FASL** 1972. (ENTRY EM:WARN SUBR)) 
	(COMMENT **FASL** 1993. (ENTRY EM:COPY-ALIAS1 SUBR)) 
	(COMMENT **FASL** 2017. (ENTRY EM:EVAL-PROTECT SUBR)) 
	(COMMENT **FASL** 2021. (ENTRY EM:EVAL-UNPROTECT SUBR)) 
	(COMMENT **FASL** 2024. (ENTRY EM:CRITICAL-DEPTH SUBR)) 
	(COMMENT **FASL** 2026. (ENTRY EM:BUSINESS-ADDRESS SUBR)) 
	(COMMENT **FASL** 2030. (ENTRY EM:MESSAGE-TYPE SUBR)) 
	(COMMENT **FASL** 2035. (ENTRY EM:MAIL-INTERRUPT-HANDLER SUBR)) 
	(COMMENT **FASL** 2096. (ENTRY EM:READONLY-INIT SUBR)) 
	(COMMENT **FASL** 2108. (ENTRY EM:MAKE-SIXBIT SUBR)) 
	(COMMENT **FASL** 2115. (ENTRY EM:FORCE-READONLY-MESSAGE SUBR)) 
	(COMMENT **FASL** 2158. (ENTRY EM:GET-NEXT-READONLY SUBR)) 
(COMMENT ****  (SIXATM) Undefined symbols - converted to DDT symbols in function EM:MAIL-INTERFACE)
	(COMMENT **FASL** TOTAL =  4650. WORDS)